﻿Imports System
Imports System.Windows
Imports System.Windows.Controls

Partial Public Class InfoWindow
    Inherits ChildWindow

    Public Sub New()

        ' Llamada necesaria para el Diseñador de Windows Forms.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

    End Sub



    Public Sub New(ByVal message As String)
        InitializeComponent()
        Informacion.Text = message
    End Sub


    Private Sub OKButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs) Handles OkButton.Click
        Me.DialogResult = True
    End Sub


    Private Sub Child_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Closed
        Application.Current.RootVisual.SetValue(Control.IsEnabledProperty, True)
    End Sub
End Class
